xlNoSelection Probleme
01.09.2005 00:51:21
MartinM
Es ist ein Rätsel, wenn ich den xlNoSelection Befehl anwende und die Datei anschliessend Speichere, ist diese Restriction bei deaktivierten Makros wieder auf xlNoRestrictions gesetzt. Wird die Datei mit aktivierten Makros gestartet, ist die einschränkung wir gespeichert auf xlNoselection.
Ist dieser Zustand allgemein, oder liegt es eventuel an meinem Scrip.
Sub BlattSchutz_aus()
Sheets("Meldeblatt").Unprotect Password:="///***"
Sheets("Querry").Unprotect Password:="///***"
Sheets("MAKRO-INI").Unprotect Password:="///***"
ActiveWorkbook.Unprotect Password:="///***"
End Sub
Sub BlattSchutz_ein()
With Sheets("Meldeblatt")
.EnableSelection = xlUnlockedCells
.Protect Password:="///***", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End With
With Sheets("Querry")
.EnableSelection = xlNoSelection
.Protect Password:="///***"
End With
With Sheets("MAKRO-INI")
.EnableSelection = xlNoSelection
.Protect Password:="///***"
End With
ActiveWorkbook.Protect Password:="///***"
End Sub
Sub MakroSicherheit_ein()
BlattSchutz_aus
Sheets("MAKRO-INI").Visible = True
Sheets("Meldeblatt").Visible = xlVeryHidden
Sheets("Querry").Visible = xlVeryHidden
BlattSchutz_ein
End Sub
Sub MakroSicherheit_aus()
BlattSchutz_aus
Sheets("Meldeblatt").Visible = True
Sheets("Querry").Visible = xlVeryHidden
Sheets("MAKRO-INI").Visible = xlVeryHidden
BlattSchutz_ein
End Sub
Besten Dank für Jeden der sich das Problem ansieht und alle die mir Helfen.
Gruss
Martin
Der Weg ist das Ziel
