|
VBA - Blattschutz in Personl.xls |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 21. März 2009 um 07:02 Uhr |
|
Wenn Ihr Euch die folgenden 3 Makros in euere Personl.xls einbindet, so könnt Ihr mit einem Klick Eueren Passwortschutz setzen und wieder aufheben. Denkt aber daran, dass Ihr Euch auch einen Schalter dafür in die Menüleiste legen müsst. Der folgende Code gehört in ein Modul:
Option Explicit
Option Private Module
Dim i As Integer
Dim Info As Integer
Sub Schutz_weg()
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Wo soll denn da Schutz beseitigt werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect Password:="Dein Passwort"
Next
Application.ScreenUpdating = True
End Sub
Sub Schutz_für_alle_hin()
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Was soll denn da mit Schutz versehen werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="Dein Passwort"
Next
Application.ScreenUpdating = True
End Sub
Sub Schutz_hin()
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Was soll denn da mit Schutz versehen werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
ActiveSheet.Protect Password:="Dein Passwort"
End Sub
Wichtiger Hinweis: Damit ihr das Makro mit einem Schalter verbinden könnt müsst ihr erst einmal die Zeile Option Private Modul auskommentieren, denn sonst wird das Makro nicht gefunden.
|
|
Zuletzt aktualisiert am Samstag, 21. März 2009 um 09:14 Uhr |
VBA Makro Beispiele 