Blattschutz für einige Blätter



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Blattschutz für einige Blätter
von: MikeS
Geschrieben am: 03.07.2002 - 10:41:17

Hallo Leute,

mit nachfolgender Anweisung wird in Zelle A1 des jeweiligen Sheets die letzte Speicherzeit (incl.Datum) reingeschrieben.

Alle aufgeführten Blätter sind mit dem Password "Wolle" geschützt
und sollen mit der Unprotect-Methode vor Ausführung des Codes
entsperrt werden, damit in A1 das Datum+Zeit reingeschrieben werden kann.

Danach sollen alle angegebenen Sheets wieder mit dem
Password "Wolle" geschützt werden.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  With ActiveWorkbook
    .Sheets("Juni 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Juli 02").Range("A1").Value = Now & " Uhr"
    .Sheets("August 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Sept 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Okt 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Nov 02").Range("A1").Value = Now & " Uhr"
    .Sheets("Dez 02").Range("A1").Value = Now & " Uhr"
  End With
End Sub

Vielen Dank für Eure Hilfe
Ciao MikeS


nach oben   nach unten

Re: Blattschutz für einige Blätter
von: Hajo_Zi
Geschrieben am: 03.07.2002 - 10:47:01

Hallo MikeS

habe ich Deine Frage überlesen??

Baue diese beiden Makros ein. Die heben den Schutz für alle Blätter auf oder setzen ihn.


Private Sub Aufheben()
    For I = 1 To Sheets.Count
        Sheets(I).Unprotect ("Wolle")
    Next I
End Sub

Private Sub Schutz()
    For I = 1 To Sheets.Count
        Sheets(I).Protect ("Wolle")
    Next I
End Sub

in Now ist die Uhrzeit schon enthalten.

Gruß Hajo


nach oben   nach unten

Re: Blattschutz für einige Blätter
von: MikeS
Geschrieben am: 03.07.2002 - 10:56:15

Vielen Dank Hajo,

hat funktioniert!

Ciao MikeS


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz für einige Blätter"