Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro soll nur laufen wenn Datei schreibgeschützt

Forumthread: Makro soll nur laufen wenn Datei schreibgeschützt

Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 15:24:17
Claus
Hallo,
hiermit bitte ich um eure Mithilfe:
Ein Makro (den ich schon per Aufzeichnung habe) ändert mittels suchen/ersetzen einige Zellen ab. Dieser soll aber nur dann ablaufen, wenn 2 Bedingungen erfüllt sind:
Die aktuelle Datei ist schreibgeschützt. (Damit ich nicht meine Ausgangsdaten versehentlich ändere)
Der zu ersetzende Begriff ($G:$S;XXX) kommt in Zeile 2 genau 9 mal vor. (teilweise mehrfach in einer Zelle)
Vielen Dank schon mal
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 15:36:04
Rudi
Hallo,
etwa so:

Sub tt()
Dim strErsetz As String, c As Range, strTemp As String, n As Integer
strErsetz = "$G:$S;XXX"
For Each c In Rows(2).Cells
strtmp = strTemp & c.FormulaLocal
Next c
n = (Len(strTemp) - Len(Replace(strTemp, strErsetz, ""))) / Len(strErsetz)
If n = 9 And ThisWorkbook.ReadOnly Then
'dein Code
End If
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Makro soll nur laufen wenn Datei schreibgeschützt
14.12.2006 16:11:22
Claus
Hallo Rudi,
vielen Dank.
Teilerfolg: Schreibschutz ist o.k, das mit den 9 Ersetzungen klappt noch nicht.
Leider muss ich jetzt dringend weg, da muss ich morgen weiter testen...
Grüßle Claus

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige