Makro Falsch ?
27.03.2017 13:23:18
walter
ich möchte ein Makro in "Diese Arbeitsmappe" setzen,
damit die Datei nachher, beim wiederöffnen geschützt ist.
VB_Schreiben klappt, das andere nicht.
richtig eingesetzt, das andere nicht.
'Call VB_schreiben
'Call VB_Makro_Schutz_einfügen
Public Sub VB_schreiben()
Dim StrMakroText
StrMakroText = _
"
Public Sub Workbook_Open()" & Chr(10) & _
" Call VB_Schutz" & Chr(10) & _
"End Sub
"
ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString StrMakroText
End Sub
Public Sub VB_Makro_Schutz_einfügen()
StrMakroText = _
"
Public Sub VB_Schutz()" & Chr(10) & _
"Dim Password As String" & Chr(10) & _
"Dim vbext_pp_none" & Chr(10) & _
"Dim wb As Workbook, ok As Boolean, s As String" & Chr(10) & _
"Set wb = Application.Workbooks(akw)" & Chr(10) & _
Password = ww & Chr(10) & _
"SendKeys %{F11}^r{Tab}, True" & Chr(10) & _
"Do While Application.VBE.ActiveVBProject.Filename wb.Fullname" & Chr(10) & _
"SendKeys {Tab}, True" & Chr(10) & _
"If wb.VBProject.Protection = vbext_pp_none Then" & Chr(10) & _
"SendKeys & %xi" & Chr(10) & _
"SendKeys & {TAB 9}" & Chr(10) & _
"SendKeys & {RIGHT}" & Chr(10) & _
"SendKeys & {TAB} & Chr(10) & _
"SendKeys & " "" & Chr(10) & _
"SendKeys & {TAB}" & Chr(10) & _
"SendKeys & Password" & Chr(10) & _
"SendKeys & {TAB}" & Chr(10) & _
"SendKeys & Password" & Chr(10) & _
"SendKeys & {TAB}" & Chr(10) & _
"SendKeys & {Enter}" & Chr(10) & _
"SendKeys & %{F11}, True" & Chr(10) & _
"End If" & Chr(10) & _
"End Sub
"
ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString StrMakroText
End Sub
mfgwalter mb