Blattschutz aufheben vor - und aktivieren nach - makro

02/02/2009 - 10:45 von Tobias Harnegg | Report spam
Hallo allerseits,

ich habe 3 Makros, möchte diese aber trotz Blattschutz ausführen
(gewisse zellbereiche bleiben ungesperrt,
aber die makros beziehen sich tw. auf die gesperrten.

Bin leider kein grosser VBA-Mann, bisher gescheitert.
Vielleicht kann irgendwer die Relevanten Zeilen einfügen, so das es
funkioniert ?
Das Blattschutz-Passwort wàre "unp".

Meine Makros:

IM ARBEITSBLATT:

' Für automatische Höhe
Private Sub Worksheet_Autofit(ByVal Target As Range)
Rows.EntireColumn.AutoFit
End Sub
' Für Datumsstempel
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target
If Cell.Column <= 3 Then
If Cells(Cell.Row, 1) <> "" Or Cells(Cell.Row, 2) <> "" Or Cells
(Cell.Row, 3) <> "" Then Cells(Cell.Row, 4) = Now
If Cells(Cell.Row, 2) = "" And Cells(Cell.Row, 3) = "" Then Cells
(Cell.Row, 4) = ""
End If
Next Cell
End Sub

IN DER MAPPE:

' Datum d. letzten Änderung
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Dim Datumszelle As Range
Application.EnableEvents = False
If TypeName(Sh) = "Worksheet" Then
Set Datumszelle = Sh.Range("Z1")
Datumszelle = Date & ", " & Time
End If
Application.EnableEvents = True
End Sub



Vielen Dank für Hilfe!
 

Lesen sie die antworten

#1 Werner P. Schulz
02/02/2009 - 12:20 | Warnen spam
Am Mon, 02 Feb 2009 01:45:13 -0800 schrieb Tobias Harnegg:


ich habe 3 Makros, möchte diese aber trotz Blattschutz ausführen
(gewisse zellbereiche bleiben ungesperrt,
aber die makros beziehen sich tw. auf die gesperrten.

Bin leider kein grosser VBA-Mann, bisher gescheitert.
Vielleicht kann irgendwer die Relevanten Zeilen einfügen, so das es
funkioniert ?
Das Blattschutz-Passwort wàre "unp".



... baue in deine Makros
ActiveSheet.Unprotect Password:="unp"
bzw am Ende wieder
ActiveSheet.Protect Password:="unp"
ein

Gruss Werner
mail nur an => nospam0601 at wp-schulz.de

Google fuer Linux-Fragen => http://www.google.de/linux <=

Ähnliche fragen