[說明]
取得使用者名稱後,可運用於自動另存備份檔案後,於該檔案名稱後方加上取得的使用者名稱,就可知道是誰最後存檔了這個檔案。
 
[程式碼]
Sub JS() '取得使用者名稱
 
  工作表1.Select '依判斷列數的資料放置工作表不同而有異,請自行調整。
  X = Environ("USERNAME") 'X只是一個代碼,可自由命名。
  Range("A1") = X '這只是讓X呈現的一種方式,可運用於各種需要的情境與需求。
  
End Sub
 
<取得使用者名稱之結果>
 
[特別說明]
使用方式,可做一顆按鈕,將上面的程式碼複製於該巨集內,按下後即會呈現結果。亦可運用各種需要使用者名稱的情境內。
 
 
文章標籤
全站熱搜
創作者介紹
創作者 黑天使 的頭像
黑天使

問問蓮蓬頭

黑天使 發表在 痞客邦 留言(0) 人氣(610)