AW: Makros trotz Blattschutz?
16.08.2006 11:43:45
Eisnic
Hallo Stefan,
ich habe das eben versucht, aber er meldet mir immer noch, dass ich den Befehl aufgrund des Schutzes nicht ausfuehren kann.
Mein Code sieht jetzt folgendermaßen aus:
Sub Zeichen_ersetzen()
Sheets("Satzaufbau").Unprotect
Rows("6:65536").Select 'Zuerst DOS-Zeilenschaltungen'
Selection.Replace What:="" & Chr(13) & Chr(10) & "", Replacement:="®", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("6:65536").Select 'Dann Windows-Zeilenschaltungen '
Selection.Replace What:="" & Chr(10) & "", Replacement:="®", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("6:65536").Select 'Dann deutsche Anführungszeichen'
Selection.Replace What:="" & Chr(34) & "", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("6:65536").Select 'Dann Hochkomma (Gravis (Accent grace))'
Selection.Replace What:="" & Chr(96) & "", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("6:65536").Select 'Dann Apostroph'
Selection.Replace What:="" & Chr(39) & "", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("6:65536").Select 'Dann Akut (Accent algu)'
Selection.Replace What:="" & Chr(180) & "", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Satzaufbau").Protect
End Sub