Makro und Blattschutz
werner.d
nachdem ich schon alles mögliche versucht habe, seid ihr meine letzte Hoffnung:
Ich habe eine Tabelle mit den Blatschutz versehen.
Nun soll jedoch im Hintergrund ein Makro ablaufen, welches automatisch beim öffnen der Datei startet.
Hier die eingebauten Makros:
Unter diese Arbeitsmappe steht:
Private Sub Workbook_Open()
Call ersteFarbe
End Sub
Public ET As Variant
Tabelle2 und Tabelle3 sind leer
Modul1:
Sub Auto_Close()
ActiveWorkbook.SaveAs "C:\Moz(Acer)\Gewicht\2012\" & Range("B9").Value & Range("P2").Value & Range("C9")
ActiveWorkbook.Save
End Sub Modul2 und Modul3 sind leer
Modul4
Public ET As Variant
Sub ersteFarbe()
[M6].Interior.ColorIndex = 6
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "zweiteFarbe"
End Sub Sub zweiteFarbe()
[M6].Interior.ColorIndex = 8
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ersteFarbe"
End Sub Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
ET = ""
End Sub
Also nocheinmal: das Feld M6 soll blinken, jedoch bestimmte Zellen für eine Eingabe gesperrt sein und zum Schluß das ganze beim Schliesen automatisch gespeichert werden.
Vielen Dank im Voraus.