Arbeitsmappe schützen

Forumthread: Arbeitsmappe schützen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Arbeitsmappe schützen

15.05.2004 19:38:01

Lord

Ich habe vor eine Activeworkbook zu schützen per "Blattschutz" möchte aber das so gestalten das wenn eine bestimmte UserForm aktiviert wird das der Blattschutz aufgehoben wird und damit per UserForm Einträge gemacht werden können. Aber sobal die UserForm deaktiviert ist (bzw. auch vorher !) soll der Blattschutz wieder aktiviert werden, sodas der Nutzer ohne UserForm keine Änderungen vornehmen darf bzw. kann ?!?!?
Mit VBA Code bitte...
MfG Sven Calf

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Arbeitsmappe schützen

15.05.2004 19:42:45

Josef
AW: Arbeitsmappe schützen

16.05.2004 20:16:03

Lord
AW: Arbeitsmappe schützen

17.05.2004 00:05:07

Josef

AW: Arbeitsmappe schützen

15.05.2004 19:42:45

Josef

Hallo Sven!
Guckst du hier!
https://www.herber.de/forum/messages/423026.html
Gruß Sepp

AW: Arbeitsmappe schützen

16.05.2004 20:16:03

Lord

könntet ihr eventuel diesen quelltext so verändern das sich die arbeitsmappe dann nur auf "blattschutz deaktiviert" wenn eine userform per buttonklick gestartet wird und bei schliesen der userform der blattschutz wieder aktiviert wird.
MfG und auf bald Sven Calf

AW: Arbeitsmappe schützen

17.05.2004 00:05:07

Josef

Hallo Sven!
Wenn du's so willst.

Private Sub UserForm_Initialize()
Sheets("Tabelle1").Unprotect password:="DeinPasswort"
'Tabellenname und Passwort anpassen!
End Sub

Private Sub UserForm_Terminate()
Sheets("Tabelle1").Protect password:="DeinPasswort"
End Sub
Gruß Sepp