Arbeitsblatt / -mappe per Makro schützen

25/02/2008 - 14:46 von Michael Feske | Report spam
Hallo alle zusammen,
ich verwende Excel 2003 und habe dort eine Areitsmappe mit 18 Arbeitsblàttern.
Diese würde ich gerne über ein Makro welches ich in einer anderen
Arbeitsmappe abgespeichert habe schützen.
Leider wird bei meinem ersten Versuch siehe unten das Kennwort nicht gesetzt.
Analog dazu hàtte ich gerne auch ein Makro zum entsperren.

Sub schutz_aktivieren()
'
' schutz_aktivieren Makro
' aktiviert das instituts passwort für die arbeitsmappe und tabellenblàtter
'
' Tastenkombination: Strg+b
'
ActiveWorkbook.Protect Structure:=True, Windows:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Auswertung").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Eingabe").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Januar").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Februar").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Màrz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("April").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Mai").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Juni").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Juli").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("August").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("September").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Oktober").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("November").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Dezember").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Feiertage").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Ferien").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Schulferien import").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Ferien").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Vorwort").Select
Range("A1").Select
End Sub
 

Lesen sie die antworten

#1 Gerhard
25/02/2008 - 15:23 | Warnen spam
Hi,

bisschen lang, gelle ;-) - aber so mache ich's manchmal leider auch :-
( ... here u go:

Sub schutz()

Password = "xyz"

For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=Password
Next i

End Sub


Sub entschuetzen()
Password = "xyz"

For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Unprotect Password:=Password

Next i

End Sub

HTH,

Gerhard

On 25 Feb., 14:46, Michael Feske
wrote:
Hallo alle zusammen,
ich verwende Excel 2003 und habe dort eine Areitsmappe mit 18 Arbeitsblàttern.
Diese würde ich gerne über ein Makro welches ich in einer anderen
Arbeitsmappe abgespeichert habe schützen.
Leider wird bei meinem ersten Versuch siehe unten das Kennwort nicht gesetzt.
Analog dazu hàtte ich gerne auch ein Makro zum entsperren.

Sub schutz_aktivieren()
'
' schutz_aktivieren Makro
' aktiviert das instituts passwort für die arbeitsmappe und tabellenblàtter
'
' Tastenkombination: Strg+b
'
ActiveWorkbook.Protect Structure:=True, Windows:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Auswertung").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Eingabe").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Januar").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Februar").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Màrz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("April").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Mai").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Juni").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Juli").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("August").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("September").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Oktober").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("November").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Dezember").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Feiertage").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Ferien").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Schulferien import").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Ferien").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Vorwort").Select
Range("A1").Select
End Sub

Ähnliche fragen