Command button verstoppen in excell na het opslaan van sheet.

[edmoor]

Precies. En ik vind mijn indention juist prettig :d

 

[Shadowx85]

ik kan waarschijnlijk niet om die beveiliging heen zeker want dat blad moet beveiligd blijven vanwege het overbrengen van info (declarartie) naar chart sticker.

 

[edmoor]

Je kan aan het begin van de Sub de beveiliging opheffen en aan het einde weer terug zetten.
ActiveSheet.Unprotect "wachtwoord"

En:
ActiveSheet.Protect "wachtwoord"

 

[Shadowx85]

terwijl ik het bericht post dacht ik er net aan om de button uit blokkeer te halen.

Probleem opgelost!!

Ik wil jullie allemaal bedanken voor jullie inzet.

 

[Shadowx85]

alleen nog 1 klein probleem. als ik op save as druk en ik krijg de opslaan dialog en ik druk op annuleren dan gooit hij hem toch open onder een nieuw excel bestand.

 

[edmoor]

Er wordt ook niet gecontroleerd of je wel een een correcte keuze hebt gemaakt of dat je op Annuleren hebt geklikt.

 

[HSV]

Je moet dan even een aanpassing maken in de code.

With Application.FileDialog(msoFileDialogSaveAs)
    .FilterIndex = 1
    .InitialFileName = FILENAME1
    .Title = "Opslaan als"
[COLOR=#ff0000]    If .Show = 0 Then[/COLOR]
[COLOR=#ff0000]      ActiveWorkbook.Close False[/COLOR]
[COLOR=#ff0000]      Exit Sub[/COLOR]
[COLOR=#ff0000]    Else[/COLOR]
[COLOR=#ff0000]      .Execute[/COLOR]
[COLOR=#ff0000]    End If[/COLOR]
  End With

 

[edmoor]

Ik wilde dus even afwachten wat 'ie er zelf van zou maken om dan evt. de juiste richting aan te geven

 

[Shadowx85]

Wauw!!

Jullie zijn best goed in dit.

zal nog wel wat jaren duren om het echt helemaal onder de knie te krijgen.
Dit is nog maar een test in excel daarna ga ik het proberen om het in form's te maken.
Wish me luck

jullie zullen wel wat vaker van me horen.

Top gentleman's & Lady's

 

[edmoor]

We wachten af met angst en beven

 

[Shadowx85]

Beste scripters :thumb:

Toch blijf ik het probleem hebben dat hij de buttons niet weghaald bij chart sticker. ik krijg geen foutmelding bij declaration haalt ie het wel weg de beveiliging doet het ook prima geen problemen mee. ik snap er niks van.

Sub SAVE_AS()
Dim FILENAME1 As String
Dim sh As Worksheet
FILENAME1 = Join(Array(Range("P8"), Range("Q8"), Range("I9"), Range("I13"), Range("I29"), Range("I30")), "-")
Sheets(Array("DECLARATION OF HEAT TREATMENT", "CHART STICKER")).Copy
ActiveWindow.Activate
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "c:\users\x\documents\"
    .FilterIndex = 1
    .InitialFileName = FILENAME1
    .Title = "Opslaan als"
    If .Show = 0 Then
    ActiveWorkbook.Close False
    Exit Sub
    Else
    .Execute
    End If
  End With
With ActiveWorkbook
ActiveSheet.Unprotect "1212"
    For Each sh In .Sheets
        Select Case LCase(sh.Name)
            Case "declaration of heat treatment"
                sh.Shapes.Range(Array("Button 1", "Button 2", "Button 3", "Button 4", "Button 5")).Delete
            
            Case "CHART STICKER"
                sh.Shapes.Range(Array("KNOP 2", "KNOP 3")).Delete
        End Select
        ActiveSheet.Protect "1212"
    Next sh
End With

End Sub

 

[edmoor]

Maak hier kleine letters van de sheetnaam:
Case "CHART STICKER"

Deze moet een regel lager, dus in de For loop:
ActiveSheet.Unprotect "1212"

Maak hier kleine letters van de knop namen maar met een hoofdletter K:
sh.Shapes.Range(Array("KNOP 2", "KNOP 3")).Delete

 

[Shadowx85]

blijft nog steeds probleem geven op

sh.Shapes.Range(Array("Knop 2", "Knop 3")).Delete

Fout -2147024809(80070057) tijdens uitvoering:
de opgegeven waarde valt buiten het bereik.

dat heeft toch te maken dat het blad beveiligd is wat ik van jullie heb begrepen.

 

[HSV]

Heb je het zo gedaan?

With ActiveWorkbook
    For Each sh In .Sheets
     [COLOR=#ff0000]sh.[/COLOR]Unprotect "1212"