Office: Passwort ändern

Hey Leute,
sorry dass ich hier tausend Beiträge eröffne - ist mir schon richtig peinlich

aber brauch nochwas.

Ist es möglich durch eine Inputbox die geschriebenen Passwörter im VBA Editor ändern kann?

Also wenn zb. ein Passwort folgendes auslöst:

Code:

    Sheets("Januar").Select 

ActiveSheet.Protect Password:="Passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ 
   AllowFormattingCells:=True 

Sheets("Februar").Select 

ActiveSheet.Protect Password:="Passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ 
   AllowFormattingCells:=True 

dann soll man durch eine Inputbox das Passwort ändern können.

Google hat leider nichts ausgespuckt...

 

*push* jmd eine Idee?

 

Du möchtest das Passwort was im VBA Code steht ändern?
Dann muss de Zugriff auf das VBA Projekt erlaubt sein.
Ich kann da nicht helfen, baei VBA Code ändern.

 

Du kannst mich dabei nicht helfen weil du nicht weisst wie es funktioniert oder weil es nicht möglich ist?

Mh. VBA Code hab ich nochmal extra mit einem PW gesperrt, dann müsste man höchstens machen:

Lies das VBA Code Passwort und entsperre den Code
Frag User nach neuen Passwort
Lass dir altes Passwort bestätigen
Schreibe neues Passwort
Sperre VBA Code wieder mit VBA Code Passwort



hoff das kapiert jemand :D

 

Du kennst also den Punkt ZUgriff auf VBA Projehkt zulassen?
Ich habe mich nur am Rande mt der Bearbeitung von VBA Code befast. Soweit mir bekannt sind alle Deine Aufgaben lösbar.

 

ne den Punkt kenn ich nicht ^^

Ist halt gleichzeitig auch ein Sicherheitsrisiko oder?

 

Ja ein gewaltiges, ich schreibe darum immer nur es muß der zugriff zugelassen werden. Ich schreibe nicht wie man das einstellt. Da ich der Auffassung bin das geht tief in die Sicherheit und wer so was macht sollte sich schon sehr Gut in VBA auskennen.
Dein VBA Projekt ist geschützt (nichts ist sicher in Excel) Schreibe Dein Passwort in eine Tabelle und blende Sie mit Sheets("Tabelle1").Visible = xlVeryHidden aus dann kann sie nur per VBA eingeblendet werden.

 

Mh schade

Was bringt es mir wenn ich die PWs in eine Tabelle schreibe und die ausblende ? Versteh ich nicht

 

die ausgblendete Tabelle kann nur per VBA eingeblendet werden. Das Passwort in einer Tabelle ändern ist einfacher als im VBA Code.

 

Ja muss ich dann im vb Code
If pw = sheet(tabelle1).Celle(1, 1)?
Oder so ähnlich ^^

 

If Pw = Sheets("tabelle1").Celle(1, 1) Then

 

Coole Sache danke :) und mit
Sheets("Tabelle1").Visible = xlVeryHidden
Blend ich ja aus, aber wie ein?
Sheets("Tabelle1").Visible = xlVeryShow ?

 

.visible=true

 

Danke

 

mh...

Hab ja den Befehl

Active.Sheet.Protect Passwort:="Lock"

wie mach ichs, dass er aus einer Zelle ausliest?

mit

Passwort:=Sheet("Tabelle2").Celle(1, 1).value

gehts nicht