[問題] Excel VBA 複製加密工作表的資料
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
大家好，我有一個工作簿裡面sheet1用以下的方式保密
Private Sub Worksheet_Activate()
If Application.InputBox("PASSWORD:") = "12345" Then
Range("A1").Select
Sheets("sheet1").Cells.Font.ColorIndex = 56
Else
MsgBox "You may not modify this sheet!"
Sheets("sheet2").Select
End If
End Sub
Private Sub Worksheet_Deactivate()
Sheets("sheet1").Cells.Font.ColorIndex = 2
End Sub
目的是不讓不知道密碼的人去做輸入修改的動作，
現在要在sheet2將sheet1的資料做複製文字貼上(去掉公式)
我現在的做法是用巨集，不過因為有選擇sheet1的動作，所以會跳出輸入密碼的視窗
1.想請問有甚麼做法可以複製文字貼上不會跳出密碼
2.資料是隨時繼續增加的所以選擇範圍要可以變動的
補充：sheet2的目的是給不知道密碼的人可以檢視資料、篩選、排序的用途
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 125.227.90.193
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1472005600.A.EEA.html
→
08/24 10:36, , 1F
08/24 10:36, 1F
→
08/24 10:38, , 2F
08/24 10:38, 2F
→
08/24 10:49, , 3F
08/24 10:49, 3F
→
08/24 10:50, , 4F
08/24 10:50, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
