Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office
- Thread starter Kiều Mạnh
- Ngày gửi
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
CÁI đó dễ mà khó ... khó mà dễ ... ít nhất bạn phải biết viết trên VB6 ...nếu chưa biết thì nên thôi đi vậy
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Có thể dùng Inno setup để tạo file cài đặt Add-Ins cho Office.
bác cho em hỏi tý ạ.
em muốn cài vào đường dẫn sau thì làm thế nào ạ, cái inno setup nó ko chịu, ko biết phải code thế nào cho đúng, thanks ạ
DefaultDirName=c:\users\%username%\AppData\Roaming\Microsoft\AddIns
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Cái vụ cài theo đường dẫn đó thì mình không rành cho lắm, mà tôi nghĩ tại sao lại phải cài theo đường dẫn đó? Tôi cài theo đường dẫn bất kỳ (Ví dụ: C:\Program Files\GPE chẳng hạn), sau đó đăng ký cái Add-Ins với Windows là xong khỏi phải cài vào đường dẫn AddIns cho mệt vậy. Bạn có thể xem thử cách tôi làm cho file này.
http://www.mediafire.com/file/dy44jeir4i30y5i/VnTools-Setup+Ver+2.exe
Còn file để tạo Setup cho Inno Setup thì bạn tham khảo chổ này.
https://www.xltoolbox.net/blog/2013/12/using-innosetup-to-install-excel-addins.html
https://github.com/bovender/ExcelAddinInstaller
em cám ơn ạ, full hd luôn, e nghiên cứu dần
post cho ai
Em cám ơn bác "giaiphap" nhé
post cho ai cần ạ:
DefaultDirName={userappdata}\Microsoft\AddIns\
đăng ký cái Add-Ins với Windows, dùng đoạn *bat sau:
@echo off
setlocal enabledelayedexpansion
set AddinList[1]="c:\users\%username%\AppData\Roaming\Microsoft\AddIns\Add-In1.xlam"
set Quiet=0
set LastIndex=10
set Key=HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options
for /f "tokens=1* delims==" %%a in ('set AddinList[') do (
if %Quiet%==0 echo Processing '%%b'
set Value=
set Data=%%b
set Data=!Data:"=\"!
for /l %%i in (0, 1, %LastIndex%) do (
if "!Value!"=="" (
if %%i==0 (set TestValue=OPEN) else (set TestValue=OPEN%%i)
if %Quiet%==0 echo Checking !TestValue! ...
reg.exe query "%Key%" /v "!TestValue!" >NUL 2>&1
if errorlevel 1 (
if %Quiet%==0 echo ... free.
set Value=!TestValue!
) else (
if %Quiet%==0 echo ... already used.
)
)
)
if "!Value!"=="" (
echo Unable to find an empty index in the range of 0..%LastIndex%
goto :eof
) else (
reg.exe add "%Key%" /v "!Value!" /t REG_SZ /d "!Data!" /f >NUL
if errorlevel 1 (
echo ERROR: Could not create value '!Value!' with data '!Data!' at '%Key%'
) else (
if %Quiet%==0 echo Value successfully added.
)
)
)
Em cám ơn bác "giaiphap" nhé
post cho ai cần ạ:
DefaultDirName={userappdata}\Microsoft\AddIns\
đăng ký cái Add-Ins với Windows, dùng đoạn *bat sau:
@echo off
setlocal enabledelayedexpansion
set AddinList[1]="c:\users\%username%\AppData\Roaming\Microsoft\AddIns\Add-In1.xlam"
set Quiet=0
set LastIndex=10
set Key=HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options
for /f "tokens=1* delims==" %%a in ('set AddinList[') do (
if %Quiet%==0 echo Processing '%%b'
set Value=
set Data=%%b
set Data=!Data:"=\"!
for /l %%i in (0, 1, %LastIndex%) do (
if "!Value!"=="" (
if %%i==0 (set TestValue=OPEN) else (set TestValue=OPEN%%i)
if %Quiet%==0 echo Checking !TestValue! ...
reg.exe query "%Key%" /v "!TestValue!" >NUL 2>&1
if errorlevel 1 (
if %Quiet%==0 echo ... free.
set Value=!TestValue!
) else (
if %Quiet%==0 echo ... already used.
)
)
)
if "!Value!"=="" (
echo Unable to find an empty index in the range of 0..%LastIndex%
goto :eof
) else (
reg.exe add "%Key%" /v "!Value!" /t REG_SZ /d "!Data!" /f >NUL
if errorlevel 1 (
echo ERROR: Could not create value '!Value!' with data '!Data!' at '%Key%'
) else (
if %Quiet%==0 echo Value successfully added.
)
)
)
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
xài đơn giản như sau đi ... nhìn code thấy kinh
Mã:
Public Sub CheckAddins()
Dim MyFile As String, Regkey As String, Ver As String
Ver = Application.Version
MyFile = """Tools Excel.xlam"""
Regkey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Ver & "\Excel\Options\OPEN"
WriteRegKey Regkey, MyFile
End Subđọc rất dễ hiểu nhưng đoạn vb này copy vô đâu để chạy vậy bác, cho vô vba excel ạ, e nghĩ không ổn
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
theo bạn ko ổn chỗ nào .......... ý muốn sao mình làm cho
bác hiểu nhầm ý em rồi, ý em là copy vô đâu để thực thi cái code này ấy
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
copy File Add-in.xlam vô nơi sau xong chạy code đó trên Excel
Mã:
MsgBox Application.UserLibraryPaththế copy đoạn code của bác vô vba, sau đó mở excel mới thực thi được cái code.
Nhưng mà em nghĩ, mục đính mình đang cần kích hoạt cái add-in mà không cần phải mở excel lên mà bác.
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Tôi đâu biết cái file setup bạn tạo ra có cái quáy gì đâu mà trả lời, có khi các file bạn đưa vào Setup nó có con virus to tướng thì sao. Bạn đưa nguyên cái mâm dữ liệu bạn tạo ra file setup kể cả file inno setup (File *.iss) lên đây mình xem thử cho. Mà nên tạo chủ đề mới chứ cái này của bác @kieu manh vô đây hỏi nhiều vấn đề không liên quan tôi e là không phù hợp.
LamNA
Thành viên tích cực
- Tham gia
- 3/6/14
- Bài viết
- 897
- Được thích
- 720
- Giới tính
- Nam
- Nghề nghiệp
- Quản Lý Cửa Hàng
Mấy ngày nay Mình ngồi nghiên Cứu cách tạo Menu RibbonTiếng việt có dấu cho Office ...
Đọc và nghiên cứu rất nhiều tài liệu và Code trên GPE + Internet ....
Mạnh Copy Tổng hợp lại nghiên cứu và Viết thành 1 Add-Ins tạo Menu Ribbon Tiếng viết có dấu
Sử dụng đơn giản nhanh và không phải Cài đặt vào máy Mọi cái Tích hợp vào Excel hết cứ vậy là xài ...
1/ Xét thấy cũng tạm được Úp lên đây cho Bạn nào có nhu cầu thì tải về mà xài trong đó kèm theo Tools XYZ ...
Mạnh copy Code từ trên Internet về làm...
2/ Quá trình sử dụng nếu có gì không ổn thì báo lại mình điều chỉnh code
3/ Mình đặt Pass UnviewProject cho File Add-Ins nếu Bạn nào Mở được thì cứ mở Banh ta lông ra mà coi ...
Nếu không mở được tại đây báo cho Mình biết ... Mình sẻ úp File Excel không Pass lên cho Mà điều chỉnh...
4/ Mã nguồn Mạnh Copy Từ Internet và viết thêm một số ...Vì vậy nếu có ai đó cho Rằng Copy Code thì cũng đúng 60% ...vậy đi nha ...xúc tích ngắn gọn vậy cho nhanh....
5/ Mình để 2 File trong Một Folder ...chạy File ToolsExcel_Setup.exe nó sẻ giải nén File EncryptVBA.dll vào System32 và Copy File Tools Excel.xlam vào Folder Add-Ins ....
6/ Nếu Máy Từ Win7 trở lên chạy File ToolsExcel_Setup.exe Mà UAC đang ON thì Chọn Yes
7/ Nếu không thích xài nữa tìm 2 file đó Delete nó đi ...Xong phim
8/ File RibbonTV Creator Ver2.rar xem chi tiết tại Bài #69 Link Sau
http://www.giaiphapexcel.com/forum/showthread.php?118088-Add-Ins-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office/page7
Chúc Vui vẻ và Tạo ra cho Mình một Ribbon Tiếng Việt Tuyệt đẹp Hữu ích ...
Và chia sẻ cho Mọi Người cùng xài Nha .............
Kiều Mạnh
Em có tạo thử 1 nút, nhờ anh hỗ trợ code có thể ẩn hiện "Tab RIBBON Hệ Thống" cho nút bấm như file đính kèm
Em cám ơn
