lukt niet werkblad verwijderen zonder vba

[NuMan]

Het werkblad kan ik niet verwijderen via rechtermuis knop.
Volgens mij heb ik via deze forum wat gevonden en uitgeprobeerd.
Als het echt nodig is, dan verwijder ik ze via een macro.
Zie verder bijlage van de fout melding

Mijn vraag is:
Hebben jullie hier een oplossing voor?
Hebben jullie ook zoiets meegmaakt?
Alvast bedankt voor meedenken.

 

[Hoornvan]

NuMan,

Zo te zien bestaat het niet of je heb het een andere naam gegeven.

 

[Hoornvan]

NuMan,

Kan het ook zijn dat je op werkmap beveiligen / Structuur en Vensters Beveiligen heb gebruikt met een password.
Dan kun je hem ook niet verwijderen.

 

[NuMan]

Hoornvan,
Het probleem is niet het bestand afhankelijk...
Ik kan ook structuur beveiling niet uitzetten.
Ik ga binnen kort alles opniuew installeren, dan is mijn probleem zeker opgelost.
Maar als ik weet hoe ik de functie in of uit kunnen schakelen, kan ik soms gebruiken.
NuMan

 

[NuMan]

Nog steeds geen oplossing

 

[danny147]

Beste

Kan je het bestand hier plaatsen zonder vertrouwelijke informatie.

Groetjes Danny. :thumb:

 

[NuMan]

Beste

Kan je het bestand hier plaatsen zonder vertrouwelijke informatie.

Groetjes Danny. :thumb:

Het probleem is niet het bestand afhankelijk...

Bij een nieuwe lege bestand kan ik werkblad ook niet verwijderen.

Met volgende code via VBA kan ik hem wel verwijderen

Sub sheets_delete()
Sheets("Blad3").Delete
End Sub

Bij andere PC kan ik hem zonder probleem via rechtermuis knop verwijderen.

 

[Roncancio]

Lukt het wel met de rechtermuisknop nadat je onderstaande code heeft gedraaid?

Sub ResetRightClicks()
    CommandBars("Cell").Reset
End Sub

Met vriendelijke groet,


Roncancio

 

[Wigi]

Staat in het context menu na een rechtermuisklik de mogelijkheid om het blad te verwijderen, maar doet Excel dat niet. Of: staat die mogelijkheid om een blad te verwijderen er al niet?

Ik zou het eerste verwachten, maar ik vraag het toch maar eerst even.

 

[NuMan]

Staat in het context menu na een rechtermuisklik de mogelijkheid om het blad te verwijderen, maar doet Excel dat niet. Of: staat die mogelijkheid om een blad te verwijderen er al niet?

Ik zou het eerste verwachten, maar ik vraag het toch maar eerst even.

Inderdaad eerste, zie ook bijlage...
Ik zie jullie reactie na 23:30 uur ?
Alvast bedankt.

Volgens mij heb ik via deze forum wat gevonden en uitgeprobeerd

Waarschijnlijk had ik een bestand in een bepaalde map gezet. Maar ik kan niks terug vinden.
Wij kunnen ook andersom denken. Hoe kunnen we functie om werkblad te verwijderen non actief zetten?

 

[NuMan]

Ik had onderstaande functies uitgeprobeerd.

Nu krijg ik andere foutmelding. Het bestand wordt nu wel gevonden.
Want ik heb onderstaande codes opniuew geprobeerd.
Hoe kan ik onderstaande codes van "help sheet module" verwijderen.

Private Sub Worksheet_Activate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then
Ctrl.OnAction = "RefuseToDelete"
Ctrl.State = msoButtonUp
End If
Next
End Sub

Private Sub Worksheet_Deactivate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then Ctrl.OnAction = ""
Next
End Sub

Public Sub RefuseToDelete()

MsgBox "This help sheet should not be deleted!", _
Buttons:=vbExclamation, _
Title:="Cannot Deelete Help!"

End Sub

Zie voor meer informatie ondetstaande links:

http://www.excelforum.com/excel-programming/401664-prevent-sheet-deletion.html

http://www.officekb.com/Uwe/Forum.aspx/excel-prog/65764/Prevent-Sheet-Deletion

Alvast bedankt.

 

[NuMan]

Opgelost door alleen onderstaande code uit te voeren.

Private Sub Worksheet_Deactivate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then Ctrl.OnAction = ""
Next
End Sub

Bedankt en Tot Ziens....