Home VBA Makro Beispiele Personl.xls VBA - Blattschutz in Personl.xls
VBA - Blattschutz in Personl.xls PDF Drucken E-Mail
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
 
Copyright © 2014 ms-excel.eu. Alle Rechte vorbehalten.
 

Autoren - Login

Werbung

wichtige Links:
http://ms-excel.eu
Hier habt Ihr eine gute Excel Hilfe
Besucherstatistik
Besucher gesamt: 3.065.933
Besucher heute: 1.589
Besucher gestern: 2.095
Max. Besucher pro Tag: 4.488
gerade online: 6
max. online: 507
counter Statistiken