返回列表 上一主題 發帖

[發問] 鎖定活頁名稱

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-1-25 14:36 | 只看該作者

[發問] 鎖定活頁名稱

本帖最後由 vinejason 於 2018-1-25 14:39 編輯

請問如何做到
固定sheet 名稱呢 ? (不准更改)
與開放更改名稱



















)
收藏 分享
無止盡的努力上進

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
182  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2026-10-3 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2018-1-26 13:29 | 只看該作者
回復 1# vinejason

是否有更具體的說明

什麼時候不能改?

USER要做什麼動作才能改?
用功到世界末日那一天∼∼∼

TOP

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
3#
發表於 2018-1-26 14:41 | 只看該作者
回復 2# li_hsien

只是單純想到是否可以鎖定名稱啦
無止盡的努力上進

TOP

vinejason

帖子
124 
主題
43 
精華
0 
積分
167 
點名
0  
作業系統
Windows7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
台灣台北 
註冊時間
2011-3-16 
最後登錄
2021-10-7 
4#
發表於 2018-1-26 15:26 | 只看該作者
找到答案了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
   BefVal = Target
   If ActiveSheet.Name <> "廠商資料" Then '不允許更名
         ActiveSheet.Name = "廠商資料"
  End If
End Sub
無止盡的努力上進

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題