Microsoft Excel

Herbers Excel/VBA-Archiv

UF Löschen | Herbers Excel-Forum


Betrifft: UF Löschen von: Heinz H
Geschrieben am: 15.01.2010 07:23:39

Guten morgen an alle, im Forum

Mit unteren Code lösche ich nach erstellen einer neuen Datei den Button "Neues Personalblatt erstellen"
Der Button ruft eine UF auf.
Wäre es möglich die ganze UF zusätzlich zu löschen ?

Die UF hat den Namen "frmTextUebertragen"

Call WochenendeWeg(True)

  ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & "Vorlage Stundenaufzeichnung  " & Range("B3")  _
& ".xls"
        
        
  ActiveSheet.Shapes(Application.Caller).Delete 'Löscht den Button Neues Personalblatt  _
erstellen
Unload Me
ActiveSheet.Protect Password:="Test"

End Sub


Eventuell auch das "basMain" Modul
Das die UF aufruft

Sub CallForm()
frmTextUebertragen.Show
End Sub

Gruß Heinz

  

Betrifft: AW: UF Löschen von: Josef Ehrensberger
Geschrieben am: 15.01.2010 07:32:02

Hallo Heinz,

With ActiveWorkbook.VBProject
  .VBComponents.Remove .VBComponents("frmTextUebertragen")
  .VBComponents.Remove .VBComponents("basMain")
End With



Gruß Sepp



  

Betrifft: AW: UF Löschen von: Heinz H
Geschrieben am: 15.01.2010 07:53:47

Guten morgen Josef

Habe es hier eingefügt.

Call WochenendeWeg(True)

  
  ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & "Vorlage Stundenaufzeichnung  " & Range("B3")  _
& ".xls"
        
With ActiveWorkbook.VBProject
  .VBComponents.Remove .VBComponents("frmTextUebertragen")
  .VBComponents.Remove .VBComponents("basMain")
End With
  
  
  
  ActiveSheet.Shapes(Application.Caller).Delete 'Löscht den Button Neues Personalblatt  _
erstellen
Unload Me
ActiveSheet.Protect Password:="woody-6962"

End Sub

Fehler "Der programmatische Zugriff auf das VBA Projekt ist nicht sicher"

Gruß
Heinz


  

Betrifft: AW: UF Löschen von: Josef Ehrensberger
Geschrieben am: 15.01.2010 08:03:53

Hallo Heinz,

du must unter Extras > Makros > Sicherheit > Vertrauenswürdige Herausgeber,
den Haken bei "Zugriff auf Visual Basic-Projekt vertrauen" setzen.


Gruß Sepp



  

Betrifft: AW: UF Löschen von: Heinz H
Geschrieben am: 15.01.2010 08:11:08

Hallo Josef

Danke, funktioniert Einwandfrei.

Sorry für diesen Fehler meinerseits.

Hätte ich schon wissen müssen. Das ist ein Fehler normal für Anfänger.

Ich schäme mich.

Gruß
Heinz


Beiträge aus den Excel-Beispielen zum Thema "UF Löschen"