Fjernelse af Højreklik funktion

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
End Sub

fjerner højreklik

Men kun nede i arket

Ja, den har jeg prøvet, men jeg skal have disable højreklik i hele regneark.
Jeg har prøvet med DisableCustomize=true, men det har jeg ikke fået til virker.

Fjerne højrekliksmenuer

Sub CmdBarsdisable()
CommandBars("Row").Enabled = False
CommandBars("Column").Enabled = False
CommandBars("Cell").Enabled = False
End Sub

Den virker heller ikke i Excel XP.
Jeg har følgende kode, hvor jeg skal have disable højreklik funtionen:


'Følgende er udvilket til at minimere bruge af save-funktion
'til brug på validerede regneark.
'Version 1.0


Private Sub Workbook_Open()
'© 2003 Alle rettigheder tilhører John Bruun Madsen
'Følgende fjerner menu linie
  Dim cbWorkSheet As CommandBar
  Dim i As Long, j As Long

  Set cbWorkSheet = Application.CommandBars(1)



  j = 30001

  For i = 1 To 10

      j = j + 1

      If j = 30008 Then GoTo Næste

      With cbWorkSheet

        .FindControl(ID:=j).Delete

      End With

Næste:

Next i
Application.CommandBars("standard").Visible = False    'fjerner "standard" Ikon-menu linien
 
Application.OnKey "^s", ""  'fjerner "ctrl+s"(save) funktion


    MsgBox "Advarsel!! Dette regneark må ikke gemmes. Derfor er menulinien fjernet!."

MsgBox "Når du lukker regneark, får du mulighed for at printe regnearket ud"


End Sub

'Følgende procedur genindstiller menu linien, samt nulstiller alt:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  '© 2003 Alle rettigheder tilhører John Bruun Madsen
  Dim cbWorkSheet As CommandBar

  Set cbWorkSheet = Application.CommandBars(1)

  cbWorkSheet.Reset
    Application.CommandBars("Standard").Visible = True
   
ThisWorkbook.PrintOut Preview:=True
ThisWorkbook.Close SaveChanges:=False

Application.OnKey "^s"

   


End Sub

Hvor ikke gøre det lidt enklere ?    Put disse i ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "dette regneark kan ikke gemmes"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Det vil gøre at man ikke kan gemme arket og at den heller ikke spørger ved lukning.

Men hvoran gemme jeg så selve regne regnearket med ovenstående kode?

ups hvordan gemmer jeg ........blabla

I see your problem :-)
Du laver et lille trick.
Lige inden du skal gemme arket, åbner du i vba-editoren under view Immediate Window og skriver her.
Application.EnableEvents=False

Alle events er nu slået fra og du kan gemme arket.

når det er gjort skriver du
Application.EnableEvents=True

Kanon, og hvordan tilgiver jeg dig lige min point, samt lukker spørgsmålet?

Du skal nok lige bruge et svar fra mig :-)

værsågo, og tak for hjælpen nednu engang!-)

ups det keyboard.............endnu

Spørgsmål er lukket!-)

Glad for at se at jeg ikke er den eneste, der har et keyboardproblem

Jep, men er det den rigtige måde at lukke spørgsmålet på?

Helt korrekt :-)

Danke schön!