modul löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Overkill() Dim vbc As Object Dim wks As Worksheet With ActiveWorkbook.VBProject For Each vbc In .VBComponents Select Case vbc.Type Case 1, 2, 3 .VBComponents.Remove vbc Case 100 vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines End Select Next End With End Sub

Die Fehlermeldung kann man dann so abfangen,


Sub Overkill()
Dim vbc As Object
Dim wks As Worksheet
' bei Fehler zum Errorhandler
On Error GoTo Errorhandler
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3
.VBComponents.Remove vbc
Case 100
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
End Select
Next
End With
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das Löschen des VBA Codes ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Overkill"
Else
MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
End Sub

Oder man setzt per Sendkeys den Haken direkt über VBA, in der Recherche sind genügend Beispiele dazu.
Gruß Heiko
PS: Rückmeldung wäre nett !

Sub Overkill() Dim vbc As Object Dim wks As Worksheet ' bei Fehler zum Errorhandler On Error GoTo Errorhandler With Workbooks("Mappe2.xls").VBProject For Each vbc In .VBComponents Select Case vbc.Type Case 1, 2, 3 .VBComponents.Remove vbc Case 100 vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines End Select Next End With Exit Sub ' Bei Fehlernummer 1004, diese Meldung ausgeben. Errorhandler: If Err.Number = 1004 Then ' Bei meiner EXCEL Version WinXP und EXCEL 2002 läuft das dann so durch. SendKeys "%xks%v%z{TAB}~", True Resume Else MsgBox "Err.Number = " & Err.Number & ". " & Err.Description, vbCritical End If End Sub

Hallo Georg,
um noch mal auf den Vorschlag von Heiko und Deine Bedenken zurückzukommen. Du kannst doch einfach eine Abfrage vor aktivierung des Codes an den Anwender stellen, die er mit ja oder nein beantworten kann.
Teste mal:
Sub janein() 'Im Original: Private Sub Workbook_Open() verwenden
If MsgBox("Liebe Anwenderin, lieber Anwender," & vbCr & _
       "für die Arbeit mit dieser Datei ist es erforderlich, " & vbCr & _
       "den Zugriff auf Visual Basic-Projekte zu vertrauen." & vbCr & _
       "Diese Einstellung wird beim Start dieser Datei vorgenommen " & vbCr & _
       "Wenn Sie nicht einverstanden sind, klicken Sie bitte auf NEIN", _
       vbYesNo, " Vor Nutzung der Datei bitte aufmerksam lesen !") = vbNo Then
    Application.DisplayAlerts = False
    ActiveWorkbook.Close savechanges:=False 'schließt die Datei ohne Speichern
    Application.DisplayAlerts = True
Else
    Call Overkill 'ruft Makro Overkill auf
End If
End Sub
Viel Erfolg
Orakel

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread