Knop verbergen mogelijk in excel 2003???

[saggitarius]

Ik heb de onderstaande code gekoppeld aan een macroknop (Ms Excel 2003)
Als het bestand opgeslagen wordt (dus onder de naam Range("I2")), is het dan mogelijk dat de macrobutton in het opgeslagen bestand verborgen wordt?


Sub opslaan()

Dim s_dir As String

s_dir = "--:\-------\--------" & Range("C5").Value
If Dir(s_dir, vbDirectory) = "" Then MkDir s_dir
ActiveSheet.Copy
ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"

Application.Quit
End Sub

 

[HSV]

Dat kan zo, incl. de rode backslash lijkt me.

ActiveWorkbook.Sheets(1).Shapes(Application.Caller).Delete
ActiveWorkbook.SaveAs s_dir & "[COLOR=#ff0000]\[/COLOR]" & Range("I2").Value & ".xls"

Of is het nu te goed verborgen?
anders:

ActiveWorkbook.Sheets(1).Shapes(Application.Caller).visible = false

 

[saggitarius]

Oplossing werkt, maar bij beveiliging bestand niet

Hi Harry,

De eerste oplossing werkt perfect mits het bestand onbeveiligd is.
Als ik het bestand beveilg dmv een paswoord werkt het niet; is er een mogelijkheid om de beveiliging te omzeilen en waar zet ik dat dan neer?:thumb:

 

[HSV]

Als het om het activeworkbook gaat.

With activeworkbook
.unprotect "jewachtwoordhier"
.sheets blabla
.protect "jewachtwoordhier"
.saveas blabla
End with

 

[saggitarius]

Opgelost unprotect sheet en knop verwijderen

Hi Harry, bedank voor je snelle respons; kreeg het net voor elkaar door het onderstaande stukje toe te voegen

Dim s_dir As String

s_dir = "--:\---\--" & Range("C5").Value
If Dir(s_dir, vbDirectory) = "" Then MkDir s_dir
ActiveSheet.Copy
Sheets(1).Unprotect Password:="-----"
ActiveWorkbook.Sheets(1).Shapes(Application.Caller).Delete
Sheets(1).Protect Password:="-----"
ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"