Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64380 Skopiuj do schowka Blokowanie kopiowania ze wstążki
Autor Wiadomość
irnet 
Starszy Forumowicz


Posty: 27
Wysłany: 10-03-2019, 16:17   Blokowanie kopiowania ze wstążki

Witam,
Mam kod VBA który blokuje kopiowanie - wklejanie poprzez prawoklik lub przez ctrl+c ctrl+v, blokuje również przenoszenie komórek.

Mój problem to że pozostaje jeszcze opcja Kopiuj lub Wklej która znajduję się w "wstążce" i która działa a potrzebuje aby i to z tego miejsca nie działało.

Poniżej kod jaki używam, czy jest możliwość zmodyfikowania go lub dołożenia jakiegoś fragmentu kodu który to uniemożliwi ?

Modules
Kod:
Sub ToggleCutCopyAndPaste(Allow As Boolean)

    Call EnableMenuItem(21, Allow) ' cut
    Call EnableMenuItem(19, Allow) ' copy
    Call EnableMenuItem(22, Allow) ' paste
    Call EnableMenuItem(755, Allow) ' pastespecial
     
    Application.CellDragAndDrop = Allow
     
    With Application
        Select Case Allow
        Case Is = False
            .OnKey "^c", "CutCopyPasteDisabled"
            .OnKey "^v", "CutCopyPasteDisabled"
            .OnKey "^x", "CutCopyPasteDisabled"
            .OnKey "+{DEL}", "CutCopyPasteDisabled"
            .OnKey "^{INSERT}", "CutCopyPasteDisabled"
        Case Is = True
            .OnKey "^c"
            .OnKey "^v"
            .OnKey "^x"
            .OnKey "+{DEL}"
            .OnKey "^{INSERT}"
        End Select
    End With
End Sub


Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)

    Dim cBar As CommandBar
    Dim cBarCtrl As CommandBarControl
    For Each cBar In Application.CommandBars
        If cBar.Name <> "Clipboard" Then
            Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
            If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled
        End If
    Next
End Sub


Sub CutCopyPasteDisabled()

    MsgBox "Sorry!  Nie tak się umawialiśmy. Kopiowania miało nie być. Opcja zablokowana"

End Sub

Workbook
Kod:
Private Sub Workbook_Open()
Call ToggleCutCopyAndPaste(False)
End Sub

Private Sub Workbook_Activate()
    Call ToggleCutCopyAndPaste(False)
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call ToggleCutCopyAndPaste(True)
End Sub
 
Private Sub Workbook_Deactivate()
    Call ToggleCutCopyAndPaste(True)
End Sub
ID posta: 363918 Skopiuj do schowka
 
 
nunus67 
ExcelSpec


Pomógł: 172 razy
Posty: 505
Wysłany: 10-03-2019, 18:38   

zajrzyj tutaj
i pokombinuj z tym:
Kod:
' Put empty string to the clipboard
Private Sub EmptyClipboard()
  With MyDataObject
    .SetText ""
    .PutInClipboard
    .Clear
  End With
  Set OldTarget = Nothing
End Sub
_________________
Nunus67
ID posta: 363924 Skopiuj do schowka
 
 
irnet 
Starszy Forumowicz


Posty: 27
Wysłany: 11-03-2019, 10:24   

Za wysokie progi jak na moją wiedzę VBA :niee
Może jakaś podpowiedz lub inne rozwiązanie ?
ID posta: 363947 Skopiuj do schowka
 
 
nunus67 
ExcelSpec


Pomógł: 172 razy
Posty: 505
Wysłany: 12-03-2019, 11:52   

irnet napisał/a:
Może jakaś podpowiedz lub inne rozwiązanie ?


a może jakieś info czego oczekujesz? Przykładowy załącznik do tego itp..
Jakiś czas temu sam używałem kodu który prezentujesz w pierwszym poście. O ile dobrze pamiętam nie pozwalał na kopiowanie i wklejanie. U Ciebie jest inaczej? Jeśli tak przykłady proszę..
_________________
Nunus67
ID posta: 364009 Skopiuj do schowka
 
 
irnet 
Starszy Forumowicz


Posty: 27
Wysłany: 13-03-2019, 18:24   

nunus67 napisał/a:
Jakiś czas temu sam używałem kodu który prezentujesz w pierwszym poście. O ile dobrze pamiętam nie pozwalał na kopiowanie i wklejanie. U Ciebie jest inaczej?

Masz racje, kod nie pozwala na kopiowanie i wklejanie ... ale dotyczy tylko ctrl+c ctrl+v itp jak również używania prawokliku myszki (opcje kopiuj wklej są nieaktywne)

Problemem jak już pisałem w pierwszym post, jest to że kopiuj, wklej działa z wstążki (menu) excela a dokładnie z pozycji belka górna - Narzędzia główne / Kopiuj i Wklej ... z tego miejsca można wykonać to co makro blokuje
ID posta: 364153 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe